﻿Module Module1
  Sub Main()

    Dim nl As String = Environment.NewLine
    Dim testo As String = _
        "Questo è il nuovo libro su VB 2010"
    Dim stringaCercata As String = "VB 2010"
    Dim altraStringa As String = "VB 2008"
    Console.WriteLine("contiene 'VB 2010'? = " & _
        testo.Contains(stringaCercata) & nl & _
        "contiene 'VB 2008'? = " & _
        testo.Contains(altraStringa))
    Console.ReadLine()

  End Sub
End Module
